home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1482.dms / var1482.adf / Scripts / whirligig.mc < prev    next >
Text File  |  1994-07-07  |  2KB  |  97 lines
  1. int NumFrames = 20
  2.  
  3. maxobcube 2
  4. maxoctdepth 5
  5.  
  6. include "scripts/whirligig.obj"
  7.  
  8. camera {
  9.     loc    <14, 11, 6>
  10.     target    <0, 6, 2>
  11. }
  12.  
  13. lamp {
  14.     loc    <15, 32, 2>
  15.     color    <.7, .7, .7>
  16. }
  17.  
  18. color red { diff <1, 0, 0> }
  19. color blue { diff <0, 0, 1> }
  20. color yellow { diff <1, 1, 0> }
  21. color white { diff <1, 1, 1> }
  22. color cyan { diff <0, 1, 1> }
  23. color magenta { diff <1, 0, 1> }
  24. color green { diff <0, 1, 0> }
  25.  
  26. color black {
  27.     diff    <0, 0, 0>
  28. }
  29.  
  30. plane {
  31.     patt    white
  32.     loc    <0, 0, 0>
  33.     v1    <1, 0, 0>
  34.     v2    <0, 0, 1>
  35. }
  36.  
  37. blotch stemsurf {
  38.     patt    red
  39.     patt    cyan
  40.     patt    magenta
  41.     patt    yellow
  42.     patt    blue
  43.     patt    green
  44.     scale    5
  45. }
  46.  
  47.  
  48. yrotate whirligig.obj FRAME*180/NumFrames
  49. zrotate wg.gig.obj FRAME*360/NumFrames
  50.  
  51.  
  52. instance {
  53.     object    whirligig.obj
  54.     subpatt    wg.gig.surf cyan
  55.     subpatt    wg.stub.surf blue
  56.     subpatt    wg.crossbar.surf red
  57.     subpatt    wg.stem.surf yellow
  58. }
  59.  
  60. zrotate wg.gig.obj -45
  61. yrotate whirligig.obj 45
  62. translate whirligig.obj <-5, 0, -5>
  63. instance {
  64.     object    whirligig.obj
  65.     subpatt wg.gig.surf cyan
  66.     subpatt wg.stub.surf blue
  67.     subpatt wg.crossbar.surf red
  68.     subpatt wg.stem.surf yellow
  69. }
  70. translate whirligig.obj <5, 0, 5>
  71.  
  72. zrotate wg.gig.obj -45
  73. yrotate whirligig.obj 45
  74. translate whirligig.obj <-5, 0, 5>
  75. instance {
  76.     object    whirligig.obj
  77.     subpatt wg.gig.surf cyan
  78.     subpatt wg.stub.surf blue
  79.     subpatt wg.crossbar.surf red
  80.     subpatt wg.stem.surf yellow
  81. }
  82. translate whirligig.obj <5, 0, -5>
  83.  
  84. zrotate wg.gig.obj -45
  85. yrotate whirligig.obj 45
  86. translate whirligig.obj <-10, 0, 0>
  87. instance {
  88.     object    whirligig.obj
  89.     subpatt    wg.gig.surf cyan
  90.     subpatt    wg.stub.surf blue
  91.     subpatt    wg.crossbar.surf red
  92.     subpatt    wg.stem.surf yellow
  93. }
  94. translate whirligig.obj <10, 0, 0>
  95.  
  96.  
  97.